home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / nops / MIPS.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.1 KB  |  45 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Nop::MIPS;
  11. use strict;
  12. use base 'Msf::Nop';
  13. use Pex::Utils;
  14.  
  15. my $info = {
  16.   'Name'    => 'MIPS Nop Generator',
  17.   'Version' => '$Revision: 1.3 $',
  18.   'Authors' => [ 'H D Moore <hdm [at] metasploit.com>', ],
  19.   'Arch'    => [ 'mips' ],
  20.   'Desc'    =>  'This is an extremely minmal MIPS nop generator',
  21.   'Refs'    => [ ],
  22. };
  23.  
  24. my $advanced = { };
  25.  
  26. sub new {
  27.   my $class = shift; 
  28.   return($class->SUPER::new({'Info' => $info, 'Advanced' => $advanced}, @_));
  29. }
  30.  
  31. sub Nops {
  32.   my $self = shift;
  33.   my $length = shift;
  34.  
  35.   my $exploit = $self->GetVar('_Exploit');
  36.   my $random  = $self->GetVar('RandomNops');
  37.   my $badRegs = $exploit->NopSaveRegs;
  38.   my $badChars = $exploit->PayloadBadChars;
  39.  
  40.   # trashes v0 -> addiu   v0,v0,7764
  41.   return(pack('N',0x24421e54) x ($length / 4));
  42. }
  43.  
  44. 1;
  45.